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-- file: TimeDefs.Mesa 

-- last edited by Johnsson, March 28, 1978 6:05 PM 

DIRECTORY 

InlineDefs: FROM "in! inedef s"; 

TimeDefs: DEFINITIONS ■ 
BEGIN 

StartWeekDay: PRIVATE INTEGER » 1; -- Jan. 1, 1901 was a Tuesday 
BaseYear: PRIVATE INTEGER - 1901; 
DaysInFourYears: PRIVATE INTEGER - 4*365+1; 

WestEast: TYPE = {west, east}; 

LocalTimeParameters: TYPE ■ MACHINE DEPENDENT RECORD [ 
direction: WestEast, -~ Pacific is west 
zone: [0..12], -- Pacific ■ 8 
unusedl: [0..3B], 

beginDST: [0..366], — 121 ■ April 30 
unused2: [0..1B], 
zoneminutes : [0. .59], 
endDST: [0..366]]; -- 305 ■ October 31 

currentParameters: POINTER TO LocalTimeParameters « LOOPHOLE[570B]; 

HardwareTime: TYPE ■ PRIVATE MACHINE DEPENDENT RECORD [ 

high, low: CARDINAL]; -- note: high and low reversed from LongCARDINAL 

currentTime: POINTER TO HardwareTime a LOOPHOLE[572B] ; 

PackedTime: TYPE = In! ineDefs . LongCARDINAL; 
DefaultTime: PackedTime = PackedTime[0,0] ; 

UnpackedTime: TYPE = RECORD [ 

year: [0..2050], -- base year is 1901 

month: [0..12), -- January ■ 

day: [0..31], -- first day of month ■ 1 

hour: [0. .24), 

minute: [0..60), 

second: [0..60), 

weekday: [0..6], -- Monday a 

zone: [-12. .12], 

dst: BOOLEAN]; 

CurrentDayTime: PROCEDURE RETURNS [PackedTime]; 

UnpackDT: PROCEDURE [PackedTime] RETURNS [UnpackedTime]; 

InvalidTime: ERROR; 

PackDT: PROCEDURE [unp: UnpackedTime, computeDST: BOOLEAN] RETURNS [PackedTime]; 

AppendDayTime: PROCEDURE [STRING, UnpackedTime]; -- 12-JAN-77 12:34 

AppendFullDayTime: PROCEDURE [STRING, UnpackedTime]; -- 12-JAN-77 12:34 PST 

END... 


